Aminet 16/Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso/Aminet/comm/term/term_source.lha/Extras/Source/gtlayout-source.lha/LTP_CreateMenuTemplate.c

C/C++ Source or Header | 1996-03-18 | 5KB | 260 lines

/*
**    GadTools layout toolkit
**
**    Copyright © 1993-1996 by Olaf `Olsen' Barthel
**        Freely distributable.
**
**    :ts=4
*/

#ifndef _GTLAYOUT_GLOBAL_H
#include "gtlayout_global.h"
#endif

#ifdef DO_MENUS

    /* LTP_CreateMenuTemplate(RootMenu *Root,LONG *ErrorPtr,struct NewMenu *MenuTemplate):
     *
     *    Create the menu strip data.
     */

BOOL
LTP_CreateMenuTemplate(RootMenu *Root,LONG *ErrorPtr,struct NewMenu *MenuTemplate)
{
    MenuNode    *LastMenu    = NULL;
    ItemNode    *LastItem    = NULL;
    ItemNode    *LastSub    = NULL;

    MenuNode    *Menu;
    ItemNode    *Item;
    ItemNode    *Sub;

    LONG         Error;

    BOOL         Done;

    Done    = FALSE;
    Error    = 0;

    do
    {
            // Check the type

        switch(MenuTemplate->nm_Type)
        {
                // Stop here?

            case NM_END:

                DB(kprintf("NM_END\n"));

                    // Mark the last menu item

                if(LastSub)
                    LastSub->Flags |= ITEMF_LastItem;
                else
                {
                    if(LastItem)
                        LastItem->Flags |= ITEMF_LastItem;
                }

                Done = TRUE;
                break;

                // Found a new menu?

            case NM_TITLE:

                DB(kprintf("NM_TITLE |%s|\n",MenuTemplate->nm_Label));

                    // Stop on weird labels

                if(MenuTemplate->nm_Label == NM_BARLABEL)
                    Error = ERROR_OBJECT_WRONG_TYPE;
                else
                {
                        // Choose the menu to use

                    if(!LastMenu)
                        Menu = (MenuNode *)&Root->Node;
                    else
                        Menu = NULL;

                    DB(kprintf("         make menu\n"));

                        // Make room for the menu

                    if(Menu = LTP_MakeMenu(Root,Menu,MenuTemplate))
                    {
                            // Link to last menu

                        if(LastMenu)
                            LastMenu->Menu.NextMenu = &Menu->Menu;

                            // Mark the last menu item

                        if(LastSub)
                            LastSub->Flags |= ITEMF_LastItem;
                        else
                        {
                            if(LastItem)
                                LastItem->Flags |= ITEMF_LastItem;
                        }

                        LastMenu    = Menu;
                        LastItem    = NULL;
                        LastSub        = NULL;

                            // Add the menu to the list

                        AddTail((struct List *)&Root->MenuList,(struct Node *)Menu);
                    }
                    else
                        Error = ERROR_NO_FREE_STORE;
                }

                break;

                // Found a new menu item?

            case NM_ITEM:

                DB(kprintf("NM_ITEM |%s|\n",MenuTemplate->nm_Label == NM_BARLABEL ? (STRPTR)"«Bar»" : MenuTemplate->nm_Label));

                    // We need a menu to attach this to

                if(!LastMenu)
                    Error = ERROR_INVALID_COMPONENT_NAME;
                else
                {
                    DB(kprintf("        make item\n"));

                        // Make room for the item

                    if(Item = LTP_MakeItem(Root,MenuTemplate))
                    {
                            // Link it in

                        if(LastItem)
                            LastItem->Item.NextItem = &Item->Item;
                        else
                            LastMenu->Menu.FirstItem = &Item->Item;

                        LastItem    = Item;
                        LastSub        = NULL;

                            // Add it to the item list

                        AddTail((struct List *)&Root->ItemList,(struct Node *)Item);
                    }
                    else
                        Error = ERROR_NO_FREE_STORE;
                }

                break;

            case NM_SUB:

                DB(kprintf("NM_SUB |%s|\n",MenuTemplate->nm_Label == NM_BARLABEL ? (STRPTR)"«Bar»" : MenuTemplate->nm_Label));

                    // We need a menu item to attach this to

                if(!LastItem)
                    Error = ERROR_INVALID_COMPONENT_NAME;
                else
                {
                    DB(kprintf("       make sub\n"));

                        // Make room for the item

                    if(Sub = LTP_MakeItem(Root,MenuTemplate))
                    {
                            // Make sure it stays a submenu item

                        Sub->Flags |= ITEMF_IsSub;

                            // Link it in

                        if(LastSub)
                            LastSub->Item.NextItem = &Sub->Item;
                        else
                        {
                                // We cannot attach submenu items to
                                // separator bars

                            if(LastItem->Flags & ITEMF_IsBar)
                                Error = ERROR_INVALID_COMPONENT_NAME;
                            else
                            {
                                DB(kprintf("-----------> |%s| has submenu items\n",((struct IntuiText *)LastItem->Item.ItemFill)->IText));

                                    // Link the submenu item in

                                LastItem->Item.SubItem = &Sub->Item;

                                    // Zap the command sequence data

                                LastItem->Flags            = (LastItem->Flags & ~ITEMF_Command) | ITEMF_HasSub;
                                LastItem->ExtraLabel    = NULL;

                                LastItem->Item.Flags    &= ~COMMSEQ;
                                LastItem->Item.Command     = 0;

                                    // This is the first submenu item for this menu item

                                Sub->Flags |= ITEMF_FirstSub;
                            }
                        }

                        LastSub = Sub;

                            // Add it to the list

                        AddTail((struct List *)&Root->ItemList,(struct Node *)Sub);
                    }
                    else
                        Error = ERROR_NO_FREE_STORE;
                }

                // Fall through to...

                // Do nothing

            case NM_IGNORE:

                break;
        }

            // Proceed to the next entry

        MenuTemplate++;
    }
    while(!Done && !Error);

    DB(kprintf("%s error = %ld\n",__FILE__,Error));

        // Did we create anything at all?

    if(!Error)
    {
        if(!Root->MenuList.mlh_Head->mln_Succ)
            Error = ERROR_OBJECT_NOT_FOUND;
        else
            LTP_FixExtraLabel(Root,&Error);
    }

    DB(kprintf("through, error=%ld\n",Error));

    if(Error)
    {
        if(ErrorPtr)
            *ErrorPtr = Error;

        return(FALSE);
    }
    else
        return(TRUE);
}

#endif    /* DO_MENUS */